home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / vbdb / gfilebox.bas < prev    next >
Encoding:
BASIC Source File  |  1995-09-06  |  786 b   |  36 lines
  1. '
  2. 'Code for Visual Basic 1.0 and Windows 3.0
  3. '(C)1991 Marquis Computing. All Rights Reserved.
  4. '
  5. 'File Dialog box manager. Uses Windows system calls to increase
  6. 'speed and give a dialog box that dosen't have "visual basic"
  7. 'stamped all over it!
  8. '
  9. 'For use with GFILEBOX.FRM
  10. '
  11.  
  12. DefInt A-Z
  13.  
  14. Sub LoadFile (fspec$, msg$, FileName$)
  15.     
  16.     '
  17.     'Loads a file browsing box
  18.     '
  19.     
  20.     Screen.MousePointer = 11
  21.     Load GetFileBox
  22.     Screen.MousePointer = 0
  23.     
  24.     GetFileBox.FileSpec.Text = fspec$
  25.     GetFileBox.Caption = msg$
  26.     GetFileBox.Show 1
  27.     
  28.     Path$ = GetFileBox.Path.Caption + "\"      'read path
  29.     FileName$ = GetFileBox.FileSpec.Text  'read DBF name
  30.     FileName$ = UCase$(Path$ + FileName$)
  31.     
  32.     Unload GetFileBox
  33.  
  34. End Sub
  35.  
  36.